home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / tests / send.test < prev    next >
Encoding:
Text File  |  1994-03-24  |  615 b   |  40 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize 
  14. . setValues -allowShellResize true
  15.  
  16. xmLabel .label managed
  17.  
  18. . realizeWidget
  19.  
  20. ######################
  21. # List element setting
  22. ######################
  23.  
  24. test send-1.1 {send to oneself} {
  25.     . getValues -title title
  26.     send $title ".label setValues -labelString hello"
  27.     .label getValues -labelString label
  28.     set label
  29. } {hello}
  30.  
  31.  
  32. #############
  33. # Finish up #
  34. #############
  35. if { ! $INTERACTIVE} {
  36.   .label destroyWidget
  37. } else {
  38.   . mainLoop
  39. }
  40.